home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a02.bas < prev    next >
BASIC Source File  |  1993-11-30  |  2KB  |  45 lines
  1. 1000  'A02.BAS**************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 1:CLS
  3. 1020 RANDOMIZE TIME
  4. 1030 A$="☆☆☆ 任意の色で画面を染め分けています｡ ☆☆☆"
  5. 1040 T1=TIME:S=1:CC=7:PT=4
  6. 1050 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:COLOR 7:PRINT SPACE$(B)+A$
  7. 1060 LINE (63,47)-(255,191),PSET,5,B:LINE (61,45)-(257,193),PSET,5,B::LINE (59,43)-(259,195),PSET,5,B
  8. 1065 WAIT 100
  9. 1070 FOR M=0 TO 6
  10. 1080   T2=TIME
  11. 1090 LOCATE 34,21:PRINT PT;"分割画面   "
  12. 1100   READ TN,IN,JN,X,Y,XX,YY,CHECK1,CHECK2,PT:GOSUB *MAIN
  13. 1110   IF CHECK1=1 THEN LINE (64,48)-(254,190),PSET,0,BF
  14. 1120   T3=TIME:T=T3-T1:TT=T3-T2
  15. 1130   LOCATE 5,1:COLOR CC:PRINT "ここでの時間--";TT;"秒｡";" ここまで描き上げた時間--";T;"秒｡"
  16. 1140   IF CC=7 THEN CC=5 ELSE CC=7
  17. 1150   IF CHECK1=0 THEN WAIT 200
  18. 1160 NEXT
  19. 1170 GOTO 1420
  20. 1180 DATA 2,1, 1 ,96,72,158,118,1,1, 9
  21. 1190 DATA 2,2, 2 ,64,48,126, 94,1,1,16
  22. 1200 DATA 1,3, 3 ,48,36,110, 82,1,1,36
  23. 1210 DATA 1,5, 5 ,32,24,94 , 70,1,1,64
  24. 1220 DATA 1,7, 7 ,24,18,86 , 64,1,1,1152
  25. 1230 DATA 0,31,35,6 , 4,68 , 50,0,1,0
  26. 1240 DATA 0,31,35,6 , 4,68 , 50,0,0,0
  27. 1250 *MAIN
  28. 1260  FOR T=0 TO TN
  29. 1270    FOR I=0 TO IN
  30. 1280      FOR J=0 TO JN
  31. 1290        IF CHECK2=1 THEN GOSUB *M1 ELSE GOSUB *M2
  32. 1300      NEXT J
  33. 1310    NEXT I
  34. 1320    IF TN=0 THEN 1330 ELSE WAIT 200
  35. 1330  NEXT T
  36. 1340 RETURN
  37. 1350 '
  38. 1360 *M1
  39. 1370  LINE (X*I+64,Y*J+48)-(X*I+XX,Y*J+YY),PSET,[CINT(RND(1)*255),CINT(RND(1)*255),CINT(RND(1)*255)],BF
  40. 1380  RETURN
  41. 1390 *M2
  42. 1400  LINE (X*I+64,Y*J+48)-(X*I+XX,Y*J+YY),PSET,0,BF
  43. 1410  RETURN
  44. 1420 '
  45.